1   10 rem   calculate the squares of several integers
2   20 input j
3   23 rem
4   25 rem   test for sentinel value
5   30 if j == -9999 goto 99
6   33 rem
7   35 rem   calculate square of j and assign result to k
8   40 let k = j * j
9   50 print k
10  53 rem
11  55 rem   loop to get next j
12  60 goto 20
13  99 end